object ResolverForm: TResolverForm
  Left = 244
  Top = 191
  Width = 640
  Height = 480
  ActiveControl = EdDNS
  Caption = 'DNS Lookup'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  Icon.Data = {<image000.ico>}
  OldCreateOrder = False
  Position = poScreenCenter
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Memo: TMemo
    Left = 0
    Top = 121
    Width = 632
    Height = 313
    Align = alClient
    PopupMenu = PopupMenu1
    ReadOnly = True
    ScrollBars = ssBoth
    TabOrder = 0
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 434
    Width = 632
    Height = 19
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Panels = <>
    SimplePanel = True
    UseSystemFont = False
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 632
    Height = 121
    Align = alTop
    TabOrder = 2
    object Label1: TLabel
      Left = 40
      Top = 22
      Width = 58
      Height = 13
      Caption = 'DNS server:'
    end
    object Label2: TLabel
      Left = 56
      Top = 54
      Width = 41
      Height = 13
      Caption = 'Timeout:'
    end
    object Label3: TLabel
      Left = 8
      Top = 88
      Width = 88
      Height = 13
      Caption = 'Domain to resolve:'
    end
    object Label4: TLabel
      Left = 312
      Top = 24
      Width = 54
      Height = 13
      Caption = 'Query type:'
    end
    object QueryTypeListBox: TListBox
      Left = 376
      Top = 16
      Width = 121
      Height = 97
      ItemHeight = 13
      Items.Strings = (
        'A'
        'NS'
        'MD'
        'MF'
        'Name'
        'SOA'
        'MB'
        'MG'
        'MR'
        'NULL'
        'WKS'
        'PTR'
        'HINFO'
        'MINFO'
        'MX'
        'TXT'
        'AXFR'
        'MAILB'
        'MAILA'
        'Star')
      TabOrder = 0
      OnClick = QueryTypeListBoxClick
    end
    object EdDNS: TEdit
      Left = 120
      Top = 20
      Width = 129
      Height = 21
      TabOrder = 1
    end
    object EdTimeOut: TEdit
      Left = 120
      Top = 52
      Width = 73
      Height = 21
      TabOrder = 2
      Text = '30000'
      OnKeyPress = EdTimeOutKeyPress
    end
    object Edit1: TEdit
      Left = 120
      Top = 84
      Width = 241
      Height = 21
      TabOrder = 3
    end
    object ConnectBtn: TBitBtn
      Left = 512
      Top = 48
      Width = 41
      Height = 33
      Caption = 'Go'
      Default = True
      TabOrder = 4
      OnClick = ConnectBtnClick
    end
    object BitBtn1: TBitBtn
      Left = 568
      Top = 48
      Width = 41
      Height = 33
      TabOrder = 5
      Kind = bkClose
    end
  end
  object IdDNSResolver: TIdDNSResolver
    Port = 53
    ReceiveTimeout = 30000
    Left = 360
    Top = 408
  end
  object PopupMenu1: TPopupMenu
    Left = 56
    Top = 384
    object CopytoPacketeditor1: TMenuItem
      Caption = 'Copy to Packet editor'
      OnClick = CopytoPacketeditor1Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object Clear1: TMenuItem
      Caption = 'Clear'
      OnClick = Clear1Click
    end
  end
end